Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/switch/switch.frm

Visual Basic Form | 1995-09-06 | 23.9 KB | 924 lines

VERSION 2.00
Begin Form Switch
   BackColor       =   &H00FFFFFF&
   Caption         =   "Switch"
   ClientHeight    =   1350
   ClientLeft      =   1170
   ClientTop       =   3030
   ClientWidth     =   7755
   Height          =   2040
   Icon            =   SWITCH.FRX:0000
   Left            =   1110
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1350
   ScaleWidth      =   7755
   Top             =   2400
   Width           =   7875
   Begin PictureBox Dots9
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Height          =   510
      Left            =   5760
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   8
      Top             =   405
      Width           =   510
   End
   Begin PictureBox Dots8
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Height          =   510
      Left            =   5175
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   7
      Top             =   405
      Width           =   510
   End
   Begin PictureBox Dots7
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Height          =   510
      Left            =   4590
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   6
      Top             =   405
      Width           =   510
   End
   Begin PictureBox Dots6
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Height          =   510
      Left            =   3990
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   5
      Top             =   405
      Width           =   510
   End
   Begin PictureBox Dots5
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Height          =   510
      Left            =   3420
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   4
      Top             =   405
      Width           =   510
   End
   Begin PictureBox Dots4
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Height          =   510
      Left            =   2835
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   3
      Top             =   405
      Width           =   510
   End
   Begin PictureBox Dots3
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Height          =   510
      Left            =   2250
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   2
      Top             =   405
      Width           =   510
   End
   Begin PictureBox Dots2
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Height          =   510
      Left            =   1665
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   1
      Top             =   405
      Width           =   510
   End
   Begin PictureBox Dots1
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Height          =   510
      Left            =   1080
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   0
      Top             =   405
      Width           =   510
   End
   Begin Timer Timer1
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   180
      Top             =   60
   End
   Begin Label Label2
      BackColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   6600
      TabIndex        =   10
      Top             =   1035
      Width           =   330
   End
   Begin Label Label1
      BackColor       =   &H00FFFFFF&
      Caption         =   "Turns:"
      Height          =   240
      Left            =   5970
      TabIndex        =   9
      Top             =   1035
      Width           =   630
   End
   Begin Label Label3
      Alignment       =   2  'Center
      Caption         =   "Autoplay Mode"
      Height          =   255
      Left            =   2085
      TabIndex        =   11
      Top             =   75
      Visible         =   0   'False
      Width           =   3150
   End
   Begin Menu file
      Caption         =   "&Game"
      Begin Menu new
         Caption         =   "&New"
         Shortcut        =   {F2}
      End
      Begin Menu ex
         Caption         =   "E&xit"
         Shortcut        =   ^X
      End
      Begin Menu dash
         Caption         =   "-"
      End
      Begin Menu abt
         Caption         =   "&About Switch..."
      End
   End
   Begin Menu options
      Caption         =   "&Options"
      Begin Menu showhow
         Caption         =   "&Show how to do it!"
         Shortcut        =   ^S
      End
      Begin Menu colorscheme
         Caption         =   "&Background Color"
         Begin Menu blue
            Caption         =   "&Blue"
         End
         Begin Menu green
            Caption         =   "&Green"
         End
         Begin Menu yellow
            Caption         =   "&Yellow"
         End
         Begin Menu purple
            Caption         =   "&Purple"
         End
         Begin Menu bluegray
            Caption         =   "Bl&ue-Gray"
         End
         Begin Menu gray
            Caption         =   "G&ray"
         End
         Begin Menu white
            Caption         =   "&White"
            Checked         =   -1  'True
         End
      End
   End
   Begin Menu help
      Caption         =   "&Help"
   End
Sub abt_Click ()
Load about
about.Show
End Sub
Sub blue_Click ()
green.checked = 0
blue.checked = -1
yellow.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
white.checked = 0
h = &HFFFF00
label3.backcolor = h
switch.backcolor = h
dots1.backcolor = h
dots2.backcolor = h
dots3.backcolor = h
dots4.backcolor = h
dots5.backcolor = h
dots6.backcolor = h
dots7.backcolor = h
dots8.backcolor = h
dots9.backcolor = h
label1.backcolor = h
label2.backcolor = h
End Sub
Sub bluegray_Click ()
green.checked = 0
blue.checked = 0
yellow.checked = 0
purple.checked = 0
bluegray.checked = -1
gray.checked = 0
white.checked = 0
h = &H808000
label3.backcolor = h
switch.backcolor = h
dots1.backcolor = h
dots2.backcolor = h
dots3.backcolor = h
dots4.backcolor = h
dots5.backcolor = h
dots6.backcolor = h
dots7.backcolor = h
dots8.backcolor = h
dots9.backcolor = h
label1.backcolor = h
label2.backcolor = h
End Sub
Sub Dots1_Click ()
turns = turns + 1
label2.caption = Str$(turns)
If m1 = 0 Then
    Beep
ElseIf m1 = 1 Then
    If m2 = 1 Then
        Beep
    ElseIf m2 = 0 Then
        dots2.picture = LoadPicture("bluedot.ico"): m2 = 1
        dots1.picture = LoadPicture("blank.ico"): m1 = 0
    Else
        If m3 = 0 Then
            dots3.picture = LoadPicture("bluedot.ico"): m3 = 1
            dots1.picture = LoadPicture("blank.ico"): m1 = 0
        Else
            Beep
        End If
    End If
    Beep
End If
a = 1
If m1 <> 2 Then a = 0
If m2 <> 2 Then a = 0
If m3 <> 2 Then a = 0
If m4 <> 2 Then a = 0
If m5 <> 0 Then a = 0
If m6 <> 1 Then a = 0
If m7 <> 1 Then a = 0
If m8 <> 1 Then a = 0
If m9 <> 1 Then a = 0
If a = 1 Then
    a = 0
    MsgBox "You Won!", 48, "Congratulations"
End If
End Sub
Sub Dots2_Click ()
turns = turns + 1
label2.caption = Str$(turns)
If m2 = 0 Then
    Beep
ElseIf m2 = 1 Then
    If m3 = 1 Then
        Beep
    ElseIf m3 = 0 Then
        dots3.picture = LoadPicture("bluedot.ico"): m3 = 1
        dots2.picture = LoadPicture("blank.ico"): m2 = 0
    Else
        If m4 = 0 Then
            dots4.picture = LoadPicture("bluedot.ico"): m4 = 1
            dots2.picture = LoadPicture("blank.ico"): m2 = 0
        Else
            Beep
        End If
    End If
    If m1 = 0 Then
        dots1.picture = LoadPicture("reddot.ico"): m1 = 2
        dots2.picture = LoadPicture("blank.ico"): m2 = 0
    Else
        Beep
    End If
End If
a = 1
If m1 <> 2 Then a = 0
If m2 <> 2 Then a = 0
If m3 <> 2 Then a = 0
If m4 <> 2 Then a = 0
If m5 <> 0 Then a = 0
If m6 <> 1 Then a = 0
If m7 <> 1 Then a = 0
If m8 <> 1 Then a = 0
If m9 <> 1 Then a = 0
If a = 1 Then
    a = 0
    MsgBox "You Won!", 48, "Congratulations"
End If
End Sub
Sub Dots3_Click ()
turns = turns + 1
label2.caption = Str$(turns)
If m3 = 0 Then
    Beep
ElseIf m3 = 1 Then
    If m4 = 1 Then
        Beep
    ElseIf m4 = 0 Then
        dots4.picture = LoadPicture("bluedot.ico"): m4 = 1
        dots3.picture = LoadPicture("blank.ico"): m3 = 0
    Else
        If m5 = 0 Then
            dots5.picture = LoadPicture("bluedot.ico"): m5 = 1
            dots3.picture = LoadPicture("blank.ico"): m3 = 0
        Else
            Beep
        End If
    End If
    If m2 = 0 Then
        dots2.picture = LoadPicture("reddot.ico"): m2 = 2
        dots3.picture = LoadPicture("blank.ico"): m3 = 0
    ElseIf m2 = 2 Then
        Beep
    Else
        If m1 = 0 Then
            dots1.picture = LoadPicture("reddot.ico"): m1 = 2
            dots3.picture = LoadPicture("blank.ico"): m3 = 0
        Else
            Beep
        End If
    End If
End If
a = 1
If m1 <> 2 Then a = 0
If m2 <> 2 Then a = 0
If m3 <> 2 Then a = 0
If m4 <> 2 Then a = 0
If m5 <> 0 Then a = 0
If m6 <> 1 Then a = 0
If m7 <> 1 Then a = 0
If m8 <> 1 Then a = 0
If m9 <> 1 Then a = 0
If a = 1 Then
    a = 0
    MsgBox "You Won!", 48, "Congratulations"
End If

End Sub
Sub Dots4_Click ()
turns = turns + 1
label2.caption = Str$(turns)
If m4 = 0 Then
    Beep
ElseIf m4 = 1 Then
    If m5 = 1 Then
        Beep
    ElseIf m5 = 0 Then
        dots5.picture = LoadPicture("bluedot.ico"): m5 = 1
        dots4.picture = LoadPicture("blank.ico"): m4 = 0
    Else
        If m6 = 0 Then
            dots6.picture = LoadPicture("bluedot.ico"): m6 = 1
            dots4.picture = LoadPicture("blank.ico"): m4 = 0
        Else
            Beep
        End If
    End If
    If m3 = 0 Then
        dots3.picture = LoadPicture("reddot.ico"): m3 = 2
        dots4.picture = LoadPicture("blank.ico"): m4 = 0
    ElseIf m3 = 2 Then
        Beep
    Else
        If m2 = 0 Then
            dots2.picture = LoadPicture("reddot.ico"): m2 = 2
            dots4.picture = LoadPicture("blank.ico"): m4 = 0
        Else
            Beep
        End If
    End If
End If
a = 1
If m1 <> 2 Then a = 0
If m2 <> 2 Then a = 0
If m3 <> 2 Then a = 0
If m4 <> 2 Then a = 0
If m5 <> 0 Then a = 0
If m6 <> 1 Then a = 0
If m7 <> 1 Then a = 0
If m8 <> 1 Then a = 0
If m9 <> 1 Then a = 0
If a = 1 Then
    a = 0
    MsgBox "You Won!", 48, "Congratulations"
End If
End Sub
Sub Dots5_Click ()
turns = turns + 1
label2.caption = Str$(turns)
If m5 = 0 Then
    Beep
ElseIf m5 = 1 Then
    If m6 = 1 Then
        Beep
    ElseIf m6 = 0 Then
        dots6.picture = LoadPicture("bluedot.ico"): m6 = 1
        dots5.picture = LoadPicture("blank.ico"): m5 = 0
    Else
        If m7 = 0 Then
            dots7.picture = LoadPicture("bluedot.ico"): m7 = 1
            dots5.picture = LoadPicture("blank.ico"): m5 = 0
        Else
            Beep
        End If
    End If
    If m4 = 0 Then
        dots4.picture = LoadPicture("reddot.ico"): m4 = 2
        dots5.picture = LoadPicture("blank.ico"): m5 = 0
    ElseIf m4 = 2 Then
        Beep
    Else
        If m3 = 0 Then
            dots3.picture = LoadPicture("reddot.ico"): m3 = 2
            dots5.picture = LoadPicture("blank.ico"): m5 = 0
        Else
            Beep
        End If
    End If
End If
a = 1
If m1 <> 2 Then a = 0
If m2 <> 2 Then a = 0
If m3 <> 2 Then a = 0
If m4 <> 2 Then a = 0
If m5 <> 0 Then a = 0
If m6 <> 1 Then a = 0
If m7 <> 1 Then a = 0
If m8 <> 1 Then a = 0
If m9 <> 1 Then a = 0
If a = 1 Then
    a = 0
    MsgBox "You Won!", 48, "Congratulations"
End If
End Sub
Sub Dots6_Click ()
turns = turns + 1
label2.caption = Str$(turns)
If m6 = 0 Then
    Beep
ElseIf m6 = 1 Then
    If m7 = 1 Then
        Beep
    ElseIf m7 = 0 Then
        dots7.picture = LoadPicture("bluedot.ico"): m7 = 1
        dots6.picture = LoadPicture("blank.ico"): m6 = 0
    Else
        If m8 = 0 Then
            dots8.picture = LoadPicture("bluedot.ico"): m8 = 1
            dots6.picture = LoadPicture("blank.ico"): m6 = 0
        Else
            Beep
        End If
    End If
    If m5 = 0 Then
        dots5.picture = LoadPicture("reddot.ico"): m5 = 2
        dots6.picture = LoadPicture("blank.ico"): m6 = 0
    ElseIf m5 = 2 Then
        Beep
    Else
        If m4 = 0 Then
            dots4.picture = LoadPicture("reddot.ico"): m4 = 2
            dots6.picture = LoadPicture("blank.ico"): m6 = 0
        Else
            Beep
        End If
    End If
End If
a = 1
If m1 <> 2 Then a = 0
If m2 <> 2 Then a = 0
If m3 <> 2 Then a = 0
If m4 <> 2 Then a = 0
If m5 <> 0 Then a = 0
If m6 <> 1 Then a = 0
If m7 <> 1 Then a = 0
If m8 <> 1 Then a = 0
If m9 <> 1 Then a = 0
If a = 1 Then
    a = 0
    MsgBox "You Won!", 48, "Congratulations"
End If
End Sub
Sub Dots7_Click ()
turns = turns + 1
label2.caption = Str$(turns)
If m7 = 0 Then
    Beep
ElseIf m7 = 1 Then
    If m8 = 1 Then
        Beep
    ElseIf m8 = 0 Then
        dots8.picture = LoadPicture("bluedot.ico"): m8 = 1
        dots7.picture = LoadPicture("blank.ico"): m7 = 0
    Else
        If m9 = 0 Then
            dots9.picture = LoadPicture("bluedot.ico"): m9 = 1
            dots7.picture = LoadPicture("blank.ico"): m7 = 0
        Else
            Beep
        End If
    End If
    If m6 = 0 Then
        dots6.picture = LoadPicture("reddot.ico"): m6 = 2
        dots7.picture = LoadPicture("blank.ico"): m7 = 0
    ElseIf m6 = 2 Then
        Beep
    Else
        If m5 = 0 Then
            dots5.picture = LoadPicture("reddot.ico"): m5 = 2
            dots7.picture = LoadPicture("blank.ico"): m7 = 0
        Else
            Beep
        End If
    End If
End If
a = 1
If m1 <> 2 Then a = 0
If m2 <> 2 Then a = 0
If m3 <> 2 Then a = 0
If m4 <> 2 Then a = 0
If m5 <> 0 Then a = 0
If m6 <> 1 Then a = 0
If m7 <> 1 Then a = 0
If m8 <> 1 Then a = 0
If m9 <> 1 Then a = 0
If a = 1 Then
    a = 0
    MsgBox "You Won!", 48, "Congratulations"
End If
End Sub
Sub Dots8_Click ()
turns = turns + 1
label2.caption = Str$(turns)
If m8 = 0 Then
    Beep
ElseIf m8 = 1 Then
    If m9 = 1 Then
        Beep
    ElseIf m9 = 0 Then
        dots9.picture = LoadPicture("bluedot.ico"): m9 = 1
        dots8.picture = LoadPicture("blank.ico"): m8 = 0
    Else
        Beep
    End If
    If m7 = 0 Then
        dots7.picture = LoadPicture("reddot.ico"): m7 = 2
        dots8.picture = LoadPicture("blank.ico"): m8 = 0
    ElseIf m7 = 2 Then
        Beep
    Else
        If m6 = 0 Then
            dots6.picture = LoadPicture("reddot.ico"): m6 = 2
            dots8.picture = LoadPicture("blank.ico"): m8 = 0
        Else
            Beep
        End If
    End If
End If
a = 1
If m1 <> 2 Then a = 0
If m2 <> 2 Then a = 0
If m3 <> 2 Then a = 0
If m4 <> 2 Then a = 0
If m5 <> 0 Then a = 0
If m6 <> 1 Then a = 0
If m7 <> 1 Then a = 0
If m8 <> 1 Then a = 0
If m9 <> 1 Then a = 0
If a = 1 Then
    a = 0
    MsgBox "You Won!", 48, "Congratulations"
End If
End Sub
Sub Dots9_Click ()
turns = turns + 1
label2.caption = Str$(turns)
If m9 = 0 Then
    Beep
ElseIf m9 = 1 Then
    Beep
    If m8 = 0 Then
        dots8.picture = LoadPicture("reddot.ico"): m8 = 2
        dots9.picture = LoadPicture("blank.ico"): m9 = 0
    ElseIf m8 = 2 Then
        Beep
    Else
        If m7 = 0 Then
            dots7.picture = LoadPicture("reddot.ico"): m7 = 2
            dots9.picture = LoadPicture("blank.ico"): m9 = 0
        Else
            Beep
        End If
    End If
End If
a = 1
If m1 <> 2 Then a = 0
If m2 <> 2 Then a = 0
If m3 <> 2 Then a = 0
If m4 <> 2 Then a = 0
If m5 <> 0 Then a = 0
If m6 <> 1 Then a = 0
If m7 <> 1 Then a = 0
If m8 <> 1 Then a = 0
If m9 <> 1 Then a = 0
If a = 1 Then
    a = 0
    MsgBox "You Won!", 48, "Congratulations"
End If
End Sub
Sub ex_Click ()
Unload switch
End Sub
Sub Form_Click ()
If about.visible = -1 Then
    Beep
    about.Show
End If
End Sub
Sub Form_Load ()
label2.caption = Str$(0)
dots1.picture = LoadPicture("bluedot.ico"): m1 = 1
dots2.picture = LoadPicture("bluedot.ico"): m2 = 1
dots3.picture = LoadPicture("bluedot.ico"): m3 = 1
dots4.picture = LoadPicture("bluedot.ico"): m4 = 1
dots5.picture = LoadPicture("blank.ico"): m5 = 0
dots6.picture = LoadPicture("reddot.ico"): m6 = 2
dots7.picture = LoadPicture("reddot.ico"): m7 = 2
dots8.picture = LoadPicture("reddot.ico"): m8 = 2
dots9.picture = LoadPicture("reddot.ico"): m9 = 2
turns = 0
End Sub
Sub gray_Click ()
green.checked = 0
blue.checked = 0
yellow.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = -1
white.checked = 0
h = &HC0C0C0
label3.backcolor = h
switch.backcolor = h
dots1.backcolor = h
dots2.backcolor = h
dots3.backcolor = h
dots4.backcolor = h
dots5.backcolor = h
dots6.backcolor = h
dots7.backcolor = h
dots8.backcolor = h
dots9.backcolor = h
label1.backcolor = h
label2.backcolor = h
End Sub
Sub green_Click ()
green.checked = -1
blue.checked = 0
yellow.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
white.checked = 0
h = &HFF00&
label3.backcolor = h
switch.backcolor = h
dots1.backcolor = h
dots2.backcolor = h
dots3.backcolor = h
dots4.backcolor = h
dots5.backcolor = h
dots6.backcolor = h
dots7.backcolor = h
dots8.backcolor = h
dots9.backcolor = h
label1.backcolor = h
label2.backcolor = h
End Sub
Sub help_Click ()
MsgBox "For help on Switch, please use Windows Notepad to open the file SWITCH.TXT.", 64, "Switch"
End Sub
Sub new_Click ()
timer1.enabled = 0
label2.caption = Str$(0)
dots1.picture = LoadPicture("bluedot.ico"): m1 = 1
dots2.picture = LoadPicture("bluedot.ico"): m2 = 1
dots3.picture = LoadPicture("bluedot.ico"): m3 = 1
dots4.picture = LoadPicture("bluedot.ico"): m4 = 1
dots5.picture = LoadPicture("blank.ico"): m5 = 0
dots6.picture = LoadPicture("reddot.ico"): m6 = 2
dots7.picture = LoadPicture("reddot.ico"): m7 = 2
dots8.picture = LoadPicture("reddot.ico"): m8 = 2
dots9.picture = LoadPicture("reddot.ico"): m9 = 2
switch.dots1.enabled = -1
switch.dots2.enabled = -1
switch.dots3.enabled = -1
switch.dots4.enabled = -1
switch.dots5.enabled = -1
switch.dots6.enabled = -1
switch.dots7.enabled = -1
switch.dots8.enabled = -1
switch.dots9.enabled = -1
turns = 0
End Sub
Sub purple_Click ()
green.checked = -1
blue.checked = 0
yellow.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
white.checked = 0
h = &HFF00FF
label3.backcolor = h
switch.backcolor = h
dots1.backcolor = h
dots2.backcolor = h
dots3.backcolor = h
dots4.backcolor = h
dots5.backcolor = h
dots6.backcolor = h
dots7.backcolor = h
dots8.backcolor = h
dots9.backcolor = h
label1.backcolor = h
label2.backcolor = h
End Sub
Sub showhow_Click ()
timer1.enabled = -1
End Sub
Sub Timer1_Timer ()
g = g + 1
If g = 1 Then
    dots1.enabled = 0
    dots2.enabled = 0
    dots3.enabled = 0
    dots4.enabled = 0
    dots5.enabled = 0
    dots6.enabled = 0
    dots7.enabled = 0
    dots8.enabled = 0
    dots9.enabled = 0
    label3.visible = -1
    dots1.picture = LoadPicture("bluedot.ico")
    dots2.picture = LoadPicture("bluedot.ico")
    dots3.picture = LoadPicture("bluedot.ico")
    dots4.picture = LoadPicture("bluedot.ico")
    dots5.picture = LoadPicture("blank.ico")
    dots6.picture = LoadPicture("reddot.ico")
    dots7.picture = LoadPicture("reddot.ico")
    dots8.picture = LoadPicture("reddot.ico")
    dots9.picture = LoadPicture("reddot.ico")
ElseIf g = 2 Then
    dots4.picture = LoadPicture("blank.ico")
    dots5.picture = LoadPicture("bluedot.ico")
ElseIf g = 3 Then
    dots4.picture = LoadPicture("reddot.ico")
    dots6.picture = LoadPicture("blank.ico")
ElseIf g = 4 Then
    dots6.picture = LoadPicture("reddot.ico")
    dots7.picture = LoadPicture("blank.ico")
ElseIf g = 5 Then
    dots5.picture = LoadPicture("blank.ico")
    dots7.picture = LoadPicture("bluedot.ico")
ElseIf g = 6 Then
    dots3.picture = LoadPicture("blank.ico")
    dots5.picture = LoadPicture("bluedot.ico")
ElseIf g = 7 Then
    dots2.picture = LoadPicture("blank.ico")
    dots3.picture = LoadPicture("bluedot.ico")
ElseIf g = 8 Then
    dots2.picture = LoadPicture("reddot.ico")
    dots4.picture = LoadPicture("blank.ico")
ElseIf g = 9 Then
    dots4.picture = LoadPicture("reddot.ico")
    dots6.picture = LoadPicture("blank.ico")
ElseIf g = 10 Then
    dots6.picture = LoadPicture("reddot.ico")
    dots8.picture = LoadPicture("blank.ico")
ElseIf g = 11 Then
    dots8.picture = LoadPicture("reddot.ico")
    dots9.picture = LoadPicture("blank.ico")
ElseIf g = 12 Then
    dots7.picture = LoadPicture("blank.ico")
    dots9.picture = LoadPicture("bluedot.ico")
ElseIf g = 13 Then
    dots5.picture = LoadPicture("blank.ico")
    dots7.picture = LoadPicture("bluedot.ico")
ElseIf g = 14 Then
    dots3.picture = LoadPicture("blank.ico")
    dots5.picture = LoadPicture("bluedot.ico")
ElseIf g = 15 Then
    dots1.picture = LoadPicture("blank.ico")
    dots3.picture = LoadPicture("bluedot.ico")
ElseIf g = 16 Then
    dots1.picture = LoadPicture("reddot.ico")
    dots2.picture = LoadPicture("blank.ico")
ElseIf g = 17 Then
    dots2.picture = LoadPicture("reddot.ico")
    dots4.picture = LoadPicture("blank.ico")
ElseIf g = 18 Then
    dots4.picture = LoadPicture("reddot.ico")
    dots6.picture = LoadPicture("blank.ico")
ElseIf g = 19 Then
    dots6.picture = LoadPicture("reddot.ico")
    dots8.picture = LoadPicture("blank.ico")
ElseIf g = 20 Then
    dots7.picture = LoadPicture("blank.ico")
    dots8.picture = LoadPicture("bluedot.ico")
ElseIf g = 21 Then
    dots5.picture = LoadPicture("blank.ico")
    dots7.picture = LoadPicture("bluedot.ico")
ElseIf g = 22 Then
    dots3.picture = LoadPicture("blank.ico")
    dots5.picture = LoadPicture("bluedot.ico")
ElseIf g = 23 Then
    dots3.picture = LoadPicture("reddot.ico")
    dots4.picture = LoadPicture("blank.ico")
ElseIf g = 24 Then
    dots4.picture = LoadPicture("reddot.ico")
    dots6.picture = LoadPicture("blank.ico")
ElseIf g = 25 Then
    dots5.picture = LoadPicture("blank.ico")
    dots6.picture = LoadPicture("bluedot.ico")
    Beep
    label3.visible = 0
    timer1.enabled = 0
    dots1.enabled = -1
    dots2.enabled = -1
    dots3.enabled = -1
    dots4.enabled = -1
    dots5.enabled = -1
    dots6.enabled = -1
    dots7.enabled = -1
    dots8.enabled = -1
    dots9.enabled = -1
End If
End Sub
Sub white_Click ()
green.checked = 0
blue.checked = 0
yellow.checked = 0
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
white.checked = -1
h = &HFFFFFF
label3.backcolor = h
switch.backcolor = h
dots1.backcolor = h
dots2.backcolor = h
dots3.backcolor = h
dots4.backcolor = h
dots5.backcolor = h
dots6.backcolor = h
dots7.backcolor = h
dots8.backcolor = h
dots9.backcolor = h
label1.backcolor = h
label2.backcolor = h
End Sub
Sub yellow_Click ()
green.checked = 0
blue.checked = 0
yellow.checked = -1
purple.checked = 0
bluegray.checked = 0
gray.checked = 0
white.checked = 0
h = &HFFFF&
label3.backcolor = h
switch.backcolor = h
dots1.backcolor = h
dots2.backcolor = h
dots3.backcolor = h
dots4.backcolor = h
dots5.backcolor = h
dots6.backcolor = h
dots7.backcolor = h
dots8.backcolor = h
dots9.backcolor = h
label1.backcolor = h
label2.backcolor = h
End Sub